home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u6.d64 / ezdisk (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  87 lines
  1. 0 REM REM"[141][145] => DISK UTILITY <=[141] BY[141][156] JIM[141][158] BRANBERG[141] REV[144] 2/4/85  [141][141][159]
  2. 5 [151]53280,6:[151]53281,1
  3. 10 [153]"LOAD                          POSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS                          WAIT";
  4. 11 [153]" STR$ISK (null)TILITY"
  5. 15 R$[178][199](13):[153][199](14)" 1. (null)CRATCH"R$" 2. (null)ENAME"R$" 3. (null)IEW
  6. 20 POKE198,.:PRINT" 4. [211]END [196][207][211] COMMAND"R$" 5. [196]ISK DIRECTORY"R$" 6. [198]ORMAT DISK
  7. 22 [153]" 7. (null)NSCRATCH"R$" (null)RESS A NUMBER:
  8. 24 GETZ$:IFZ$=""GOTO24
  9. 25 Z=VAL(Z$):IFZ<1ORZ>7GOTO24
  10. 30 IFZ>3GOTO55
  11. 50 INPUT"[145] [198]ILE NAME      [157][157][157][157][157]";F$
  12. 55 OPEN15,8,15
  13. 60 ONVAL(Z$)GOTO130,135,80,65,155,260,400
  14. 65 PRINT"[147] E[146]RROR CHANNEL[141][141] I[146]NITIALIZE[141][141] V[146]ALIDATE
  15. 66 [133]" RIGHT$NPUT STR$(null)(null) COMMAND ";F$:[139]F$[178]""[137]560
  16. 67 F$[178][200](F$,1):[139]F$[178]"E"[137]115
  17. 70 [152]15,F$:[141]115:[137]560
  18. 80 [133]" ASCILE TYPE ";T$:T$[178][200](T$,1)
  19. 84 [139]T$[179][177]"S"[175]T$[179][177]"P"[175]T$[179][177]"U"[167][153]"ONONON":[137]80
  20. 88 [151]53280,.:[151]53281,.:[159]1,8,5,"0:"[170]F$[170]","[170]T$[170]",R":[153]"LOAD LEFT$IT (null)(null)ATNLENVAL TO PAUSE,WAIT";
  21. 89 [141]605:[141]115
  22. 90 [161]#1,A$:[141]235:[139]K[178]1[167][151]198,.:K[178].:[146]198,1:[129]T[178].[164]199:[130]
  23. 95 [139]ST[179][177].[167][153]:[153]:[133]"HIT RETURNWAITSTOP";Q$:[160]1:[137]560
  24. 100 [153]A$;:[137]90
  25. 115 [132]15,A$,B$,C$,D$
  26. 120 [139][197](A$)[177].[176]F$[178]"E"[167][153]" "A$" "B$," "C$,D$:[129]T[178]1[164]3000:[130]:[137]560
  27. 125 [142]
  28. 130 [152]15,"S0:"[170]F$:[141]115:[137]560
  29. 135 [133]" (null)EW NAME ";NF$
  30. 140 [152]15,"R0:"[170]NF$[170]"="[170]F$:[141]115:[137]560
  31. 155 Z%[178].:F[178].:[152]15,"I"
  32. 156 [159]1,8,2,"$":[129]X[178]1[164]141:[161]#1,Q$:[130]:T$(.)[178]"DEL":T$(1)[178]"SEQ":T$(2)[178]"PRG"
  33. 160 T$(3)[178]"USR":T$(4)[178]"REL":J[178]17:[141]215:N$[178]E$:J[178]2:[141]215:I$[178]E$:[161]#1,Q$:J[178]2
  34. 165 [141]215:O$[178]E$:[129]L[178]1[164]88:[161]#1,Q$:[130]
  35. 170 [153][199](147)"DISK NAME:WAIT"N$,"ID:WAIT"I$,"OS:WAIT"O$:[141]245
  36. 180 [129]P[178]1[164]8:[161]#1,T$,Q$,Q$:[139]T$[178]""[167]T$[178][199](128)
  37. 185 J[178]15:[141]215:N$[178]E$:[161]#1,Q$,Q$,Q$,Q$,Q$,Q$,Q$,Q$,Q$,L$,H$
  38. 190 L[178][198](L$[170][199](.))[170]256[172][198](H$[170][199](.)):[139]L[178].[167]210
  39. 195 [139]ST[167]FR%[178]664[171]F%:[137]600
  40. 205 F1$[178]" "[170][196](F):F$[178][201](F1$,3)
  41. 206 [153]F$L;[163]8)T$([198](T$)[171]128):[153][163]13)"ON"N$:[139]P[179]8[167][161]#1,Q$,Q$
  42. 207 [139][198](T$)[177]128[167]F%[178]F%[170]L
  43. 208 Z%[178]Z%[170]1:[139]Z%[178]18[167][151]198,.:[153][163]13)" HIT ANY KEY ":[146]198,1:Z%[178].:[153]"LOAD":[141]604
  44. 210 F[178]F[170]1:[130]:[137]180
  45. 215 E$[178]"":[129]L[178].[164]J:[161]#1,Q$
  46. 220 [139]Q$[179][177][199](96)[167][139]Q$[179][177][199](160)[167]E$[178]E$[170]Q$
  47. 230 [130]
  48. 235 P%[178][194](203):[139]P%[178]48[167][160]1:[137]560
  49. 237 [139]P%[179][177]48[175]P%[179][177]64[167]K[178]1:[146]203,64
  50. 240 [142]
  51. 245 [153]"  #WAIT BLKWAIT TYPWAIT  NAMEWAIT":[142]
  52. 250 [153]"LOAD LENATN(null)(null)RIGHT$(null)(null): (null)HIS OPTION WILL FORMAT YOUR"R$" DISK AND  ERASE WAIT";
  53. 251 [153]" ANYTHING THAT MAY
  54. 253 PRINT" ALREADY BE THERE.
  55. 255 [153]" LEFT$IT (null)VAL(null)(null)(null)(null) TO ABORT.":[142]
  56. 260 [141]250:[153]"ONONONONON VALNTER STR$RIGHT$(null)(null) NAME:":[133]" ";IN$:[139]IN$[178]""[137]560
  57. 265 [153]" (null)NIQUE STR$RIGHT$(null)(null) RIGHT$.STR$.:   ":[133]" ";ID$:[139][195](ID$)[179]2[167][153]"ONONONONON":[137]265
  58. 270 [152]15,"N0:"[170]IN$[170]","[170][200](ID$,2):[141]115:[137]560
  59. 400 [153]"LOAD (null)OU WILL NEED THE DIRECTORY # FOR THE"R$" FILE YOU WISH ";
  60. 402 [153]"TO UNSCRATCH."R$" (null)O FIND THIS INFO ";
  61. 405 [153]"RETURN TO THE MAIN"R$" MENU & USE OPTION 5 TO LIST ";
  62. 410 [153]"THE DISK"R$" DIRECTORY. (null)HE # WILL BE IN COLUMN"R$" ONE NEXT TO THE NAME ";
  63. 415 [153]"OF YOUR DELETED"R$" FILE."R$" (null)EMEMBER IT & RETURN TO THIS OPTION.":[141]255
  64. 420 [133]" ASCILE # ";U$:[139]U$[178]""[137]560
  65. 425 U[178][197](U$):[139]U[179].[176]U[177]143[167]400
  66. 430 R[178][181](U[173]8)[170]1:BS[178](U[171]((R[171]1)[172]8))[170]1:[140]:[129]X[178]1[164]R:[135]S:[130]
  67. 451 [139]BS[178]8[167]BP[178]226
  68. 452 [139]BS[178]7[167]BP[178]194
  69. 453 [139]BS[178]6[167]BP[178]162
  70. 454 [139]BS[178]5[167]BP[178]130
  71. 455 [139]BS[178]4[167]BP[178]98
  72. 456 [139]BS[178]3[167]BP[178]66
  73. 457 [139]BS[178]2[167]BP[178]34
  74. 458 [139]BS[178]1[167]BP[178]2
  75. 500 [131]1,4,7,10,13,16,2,5,8,11,14,17,3,6,9,12,15,18
  76. 510 [153]"LOAD  1. (null)EQUENTIAL"R$"  2. (null)ROGRAM"R$"  3. (null)SER"R$"  4. (null)ELATIVE
  77. 520 PRINT"  [215]HICH TYPE FILE ?
  78. 525 [161]A$:[139]A$[178]""[167]525
  79. 530 A[178][197](A$):[139]A[179]1[176]A[177]4[167]525
  80. 535 B[178]A[170]128:[152]15,"I":[159]8,8,8,"#":[152]15,"U1:"8;0;18;S
  81. 540 [152]15,"B-P:"8;BP:[152]8,[199](B);:[152]15,"U2:"8;0;18;S
  82. 550 [160]8
  83. 560 [160]15:[138]
  84. 600 [153]""FR%"BLOCKS FREE"R$" LEFT$IT F7WAIT TO CONTINUE":[146]203,3:[160]1:[137]560
  85. 604 [153]" (null)RESS";:[141]605:[141]245:[142]
  86. 605 [153]" '\' TO ABORT.WAIT":[142]
  87.